Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

{0}List 5
0A~Z
0r
0
ViewWindow 1,127,0,63,1,0
AxesOff
GridOff
LabelOff
Green F-Line 18,10,100,10
F-Line 100,10,100,28
F-Line 100,28,18,28
Green F-Line 18,28,18,10
PlotOn 20,12
PlotOn 98,12
PlotOn 20,26
PlotOn 98,26
F-Line 53,9,53,6
F-Line 53,6,66,6
F-Line 66,6,66,9
F-Line 53,29,53,38
F-Line 66,38,66,29
F-Line 1,38,127,38
Orange F-Line 1,39,127,39
Orange F-Line 1,40,127,40
Text 14,25,"SUPER MARIO LAND"
Green Text 21,42,"CFX-9850G"
Orange Text 50,25,"BY: B.RASMUS ANTHIN"
3L
Lbl A
Isz
=1Prog "MLEV1"
=2Prog "MLEV2"
=3Prog "MLEV3"
0B
1+LO
Lbl 0
L<O500T
L<OF-1H
LO
0D
-1Q
-1K
For 1+BA To 21+B
Isz D
List 6[A]=1DK
List 6[A]=2DK
Next
Cls
If 1 And 3
Then Orange F-Line 91,41,53,5
Orange F-Line 53,5,8,51
Orange F-Line 80,51,103,30
Orange F-Line 103,30,125,51
IfEnd
If 4 And 6
Then Orange Circle 20,15,10
Orange PlotOn 16,2
Orange PlotOn 17,1
Orange PlotOn 18,1
Orange PlotOn 19,2
Orange PlotOn 21,2
Orange PlotOn 22,1
Orange PlotOn 23,1
Orange PlotOn 24,2
Orange PlotOn 18,10
Orange PlotOn 17,10
Orange PlotOn 16,11
Orange PlotOn 16,12
Orange PlotOn 16,13
Orange PlotOn 16,14
Orange PlotOn 17,15
Orange PlotOn 18,15
Orange PlotOn 19,15
Orange PlotOn 20,14
Orange PlotOn 20,13
Orange PlotOn 21,15
Orange PlotOn 22,15
Orange PlotOn 23,15
Orange PlotOn 24,14
Orange PlotOn 24,13
Orange PlotOn 24,12
Orange PlotOn 24,11
Orange PlotOn 23,10
Orange PlotOn 22,10
Orange PlotOn 18,13
Orange PlotOn 22,13
Orange PlotOn 15,17
Orange PlotOn 14,18
Orange PlotOn 14,19
Orange PlotOn 15,20
Orange PlotOn 16,21
Orange PlotOn 17,21
Orange PlotOn 18,22
Orange PlotOn 19,22
Orange PlotOn 20,22
Orange PlotOn 21,22
Orange PlotOn 22,22
Orange PlotOn 23,22
Orange PlotOn 24,21
Orange PlotOn 25,20
Orange PlotOn 25,19
Orange PlotOn 29,6
Orange PlotOn 30,5
Orange PlotOn 31,4
Orange PlotOn 32,15
Orange PlotOn 33,15
Orange PlotOn 34,15
Orange PlotOn 29,24
Orange PlotOn 30,25
Orange PlotOn 31,26
Orange PlotOn 20,27
Orange PlotOn 20,28
Orange PlotOn 20,29
Orange PlotOn 11,24
Orange PlotOn 10,25
Orange PlotOn 9,26
Orange PlotOn 8,15
Orange PlotOn 7,15
Orange PlotOn 6,15
IfEnd
0D
For B+1A To B+21
Isz D
List 1[A]1Text 50,6D-5,"[]"
List 1[A]2Text 44,6D-5,"[]"
List 1[A]3Text 38,6D-5,"[]"
List 1[A]4Text 32,6D-5,"[]"
Next
0D
For B+1A To B+21
Isz D
If List 3[A]=1
Then Green Text 44-6List 1[A],6D-4,"o"
Text 44-6List 1[A],6D-4,"o"
IfEnd
If List 2[A]=1
Then Green Text 47-6List 1[A],6D-4,"I"
Green Text 51-6List 1[A],6D-4,"I"
Green PlotOn 6D-3,46-6List 1[A]
Green PlotOn 6D-2,45-6List 1[A]
Green PlotOn 6D-4,45-6List 1[A]
Green PlotOn 6D-5,46-6List 1[A]
Green PlotOn 6D-1,46-6List 1[A]
Green PlotOn 6D,47-6List 1[A]
Green PlotOn 6D-6,47-6List 1[A]
PlotOff 6D-4,51-6List 1[A]
PlotOff 6D-2,51-6List 1[A]
IfEnd
If List 2[A]=2
Then Orange Text 50-6List 1[A],6D-4," "
Text 50-6List 1[A],6D-4,"U"
F-Line 6D-5,50-6List 1[A],6D,50-6List 1[A]
PlotOn 6D-5,51-6List 1[A]
PlotOn 6D,51-6List 1[A]
IfEnd
If List 2[A]=3
Then Green Text 50-6List 1[A],6D-6,"]"
Green Text 50-6List 1[A],6D-4,"="
IfEnd
Next
N=00E
N=0-List 1[E+B+1]+1F
N=0FH
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,
KQ
0R
0D
-1W
For 1+BA To 21+B
Isz D
List 3[A]=2DW
Next
While 1
If Getkey=31
Then For 1A To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45," "
Text 20,45," "
LpWhile Getkey31
IfEnd
M=100Isz L
M=100Text 1,112,"0 "
M=100Text 57,28,L
M=1000M
T=99Text 1,1," "
T=9Text 1,1," "
Text 1,1,T
BC
EG
0N
T-1T
If F=H
Then If List 1[E+B+1]-F
Then If Not (List 1[E+B+1]=-F-1 And List 3[E+B+1]=1)
Then If Not (List 1[E+B+1]=-F And List 2[E+B+1]=2)
Then Text 44+6F,2+6E," "
Isz F
IfEnd
IfEnd
IfEnd
IfEnd
If List 3[E+B+1]=1 Or List 3[E+B+1]=3
Then If List 1[E+B+1]=-F+1
Then If Getkey=78
Then Text 44+6F,2+6E," "
Text 41+6F,2+6E,""
List 4[E+B+1]0List 3[E+B+1]=1Text 38-6List 1[E+B+1],2+6E,"o"
If List 3[E+B+1]=3
Then 0List 3[E+B+1]
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45," "
Isz L
Text 57,28,L
200+PP
Text 57,72,P
IfEnd
Text 41+6F,2+6E," "
Text 44+6F,2+6E,""
Text 38-6List 1[E+B+1],2+6E," "
If List 4[E+B+1]0
Then List 4[E+B+1]-1List 4[E+B+1]
10+PP
Text 57,72,P
Isz M
Text 1,112,M
IfEnd
IfEnd
IfEnd
IfEnd
F<HText 44+6H,2+6E," "
Text 44+6F,2+6E,""
Getkey=27List 1[E+B+2]-F+2Not (List 1[E+B+2]=-F+1 And List 2[E+B+2]=2)Not (List 1[E+B+2]=-F And List 3[E+B+2]=1)Isz E
E>0Getkey=38List 1[E+B]-F+2Not (List 1[E+B]=-F+1 And List 2[E+B]=2)Not (List 1[E+B]=-F And List 3[E+B]=1)Dsz E
E<00E
FH
If List 2[E+B+1]2
Then -F-List 1[E+B+1]=11U
-F-List 1[E+B+1]=-10U
IfEnd
If List 2[E+B+1]=2
Then -F-List 1[E+B+1]=21U
-F-List 1[E+B+1]=00U
IfEnd
If List 3[E+B+1]=1
Then -F-List 1[E+B+1]=31U
-F-List 1[E+B+1]=10U
IfEnd
List 1[E+B+1]=01U
Getkey=78U=0Not (List 1[E+B+1]=-F+1 And List 3[E+B+1]=1)Dsz F
If E21
Then B+21B
0E
Goto 0
IfEnd
EGText 44+6F,2+6G," "
EGList 1[E+B+1]=-F+1Text 44+6F,2+6E,""
If Getkey=37
Then If List 2[E+B+1]=2
Then If List 4[E+B+1]=1
Then 0List 4[E+B+1]
0N
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}List 5
Cls
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,
EI
FJ
Goto 3
IfEnd
IfEnd
IfEnd
If E+1=Q
Then If List 1[E+B+1]=-F
Then 0List 6[K+B]
100+PP
Text 57,72,P
-1Q
-1K
IfEnd
IfEnd
0List 5[1]
E+1=QList 1[E+B+1]-1=-F1List 5[1]
If K>0
Then If List 6[K+B]=1 Or List 6[K+B]=2
Then QS
Isz R
R=1Isz Q
R=2Dsz Q
R=3Dsz Q
R=4Isz Q
R=40R
Text 50-6List 1[S+B],-4+6S," "
List 6[K+B]=1Text 50-6List 1[Q+B],-4+6Q,"."
List 6[K+B]=2Text 50-6List 1[Q+B],-4+6Q,","
IfEnd
IfEnd
E+1=QList 1[E+B+1]-1=-F1List 5[1]
If F=1 Or T=0 Or (List 3[E+B+1]=2 And (V1 And V<3) And List 1[E+B+1]=-F) Or List 5[1]
Then L-1L
If L=0
Then Orange Text 10,40," "
Orange Text 15,40," "
Text 15,40," GAME OVER! "
Orange Text 20,40," "
Text 44+6F,2+6E," "
Text 57,28,L
Stop
IfEnd
Goto 0
IfEnd
If List 2[E+B+1]=3
Then Orange Text 10,30," "
Orange Text 15,30," "
3Text 15,30," LEVEL CLEAR "
=3Text 15,25," CONGRATULATIONS! "
Orange Text 20,30," "
While T>0
1+PP
Dsz T
T=99Text 1,1," "
T=9Text 1,1," "
Text 1,1,T
Text 57,72,P
WhileEnd
For 1A To 500
Next
3Goto A
=3Goto 4
IfEnd
BCGoto 0
If W>0 And List 3[E+B+1]2
Then Isz V
V=60V
If V=1
Then Orange Text 43-6List 1[W+B],-4+6W," "
Text 44-6List 1[W+B],-4+6W,"Y"
PlotOn -3+6W,49-6List 1[W+B]
IfEnd
V=3Text 44-6List 1[W+B],-5+6W," "
IfEnd
WhileEnd
Lbl 3
If Getkey=31
Then For 1A To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45," "
Text 20,45," "
LpWhile Getkey31
IfEnd
Dsz T
T=99Text 1,1," "
T=9Text 1,1," "
Text 1,1,T
M=100Isz L
M=100Text 1,112,"0 "
M=100Text 57,28,L
M=1000M
Isz N
N=1-5F
N=1-5U
N=12E
EG
If N=1
Then For 3A To 18
Text 46,6A+2,"o"
Next
For 1A To 21
Text 50,6A-5,"[]"
Text 8,6A-5,"[]"
Next
Green Text 8,7,"[]"
Green Text 8,19,"[]"
For 2A To 8
Text 6A-4,1,"[]"
Text 6A-4,121,"[]"
Next
Text 8,13," "
Text 8,14," "
Green Text 44,115,"]"
Green Text 44,117,"="
IfEnd
Getkey=27Isz E
Getkey=38E>1Dsz E
Text 44+6F,2+6E,""
Getkey=78F-2Dsz F
F=UF0Isz F
FUText 44+6U,2+6E," "
EGText 44+6F,2+6G," "
F=0Text 38,2+6E," "
FU
If E>2 And E<19
Then If List 5[E-2]=1 And F=0
Then 10+PP
Isz M
0List 5[E-2]
Text 57,72,P
Text 1,112,M
IfEnd
IfEnd
If E=19
Then IE
JF
Goto 0
IfEnd
If T=0
Then L-1L
If L=0
Then Text 25,40," GAME OVER"
Text 57,28,L
IfEnd
0E~H
L0Goto 0
L=0=> Stop
IfEnd
Goto 3
Lbl 4
Cls
Text 15,15,"TOTAL SCORE="
Text 22,30,P
Lbl 2
Cls
F-Line 51,40,66,40
F-Line 66,40,68,38
F-Line 68,37,64,33
F-Line 64,33,60,33
F-Line 60,33,58,35
F-Line 58,35,55,35
F-Line 55,35,52,32
F-Line 52,32,50,32
F-Line 50,32,50,39
F-Line 49,38,49,37
F-Line 55,38,60,38
Green F-Line 59,36,66,36
Green F-Line 62,35,62,34
PlotOn 64,35
Orange Text 1,95,"(C) -97"
0A~E
127C
Do
Isz A
A=3Isz B
A=1Orange Text 35,44,"-"
A=2Orange Text 35,44,"="
A=3Orange Text 35,44,""
A=30A
Isz D
C=127Isz E
D=1Text 14,50," "
E=1Text 14,50,"IDEAS"
E=2Text 14,50,"PROGRAMMING"
E=3Text 14,50,"GRAPHIC DESIGN"
C-2C
Text 24,C,"B. RASMUS ANTHIN. "
C=210D
C=21Text 24,1," "
C=21127C
LpWhile E4
Stop